home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / m100prnt.arc / HYPHEN.100 < prev    next >
Encoding:
Text File  |  1986-06-28  |  1.8 KB  |  47 lines
  1. 1 'HYPHEN.100 Rev.2 copyright 1983 by Alan Stein. No commercial use without permission.
  2. 2 'Permission granted to Sig-100 members for use and non-commerical duplication.
  3. 10 CLEAR500:MAXFILES=2:DEFSTRB,U,K,L,D,C:GOSUB500
  4. 20 TS=0:PA=0:LI="":BS=CHR$(136):UL=CHR$(95):RT$=CHR$(13)
  5. 30 SU=SL
  6. 40 CH=INPUT$(1,1):LI=LI+CH:IFEOF(1)GOTO200
  7. 50 IFCH=" "THEN90
  8. 60 IFCH=RT$THEN200
  9. 70 IFCH=ULTHENSU=SU+1ELSEIFCH=BSTHENSU=SU+2
  10. 80 GOTO40
  11. 90 IFLEN(LI)>=SU+1THEN200
  12. 100 GOTO40
  13. 200 IFFTHEN220ELSEIFLEN(LI)>(SU+6)THENGOSUB600
  14. 210 PRINT#2,LI;
  15. 220 LI=DU:DU="":TS=TS+1:PRINTTS
  16. 240 IFEOF(1)THEN300
  17. 250 IFPA=1THENPA=0:GOTO210
  18. 260 GOTO30
  19. 300 PRINTF$;" has been hyphenated. The printed text will be";TS;"lines of";SL+4;"characters."
  20. 310 END
  21. 500 FILES
  22. 505 INPUT"Which file do you want";F$:OPENF$FORINPUTAS1
  23. 510 INPUT"Do you want just a line count";Q$:F=0:IFQ$<>"y"THEN525
  24. 515 F=1:Q$="n":GOTO530
  25. 525 INPUT"Do you want the hyphenated file on tape";Q$
  26. 530 IFLEFT$(Q$,1)="n"THENOPEN"receiv"FOROUTPUTAS2:GOTO540
  27. 535 IFLEFT$(Q$,1)="y"THENOPEN"cas:receiv"FOROUTPUTAS2ELSE525
  28. 540 CLS:PRINTF$;" is the text file."
  29. 550 INPUT"What line length do you desire";SL:SL=SL-4:RETURN
  30. 600 DU=LEFT$(LI,SU-2):CLS:PRINTLI
  31. 620 FORI=1TO300:NEXTI
  32. 630 BEEP:K=INKEY$:IFK=""THEN620
  33. 640 LI=MID$(LI,SU-1)
  34. 650 PRINT@240,"(space)add letter.(ent)leave line alone.(-)'- ',(b)' ',(x)'' & breaks.";
  35. 660 PRINT@123+SU,CHR$(146):PRINT@163+SU,CHR$(152)
  36. 670 PRINT@120,DU+UL
  37. 680 K=INKEY$
  38. 685 ONINSTR("@-bx "+RT$,K)GOTO680,790,800,810,740,900:GOTO 680
  39. 740 DU=DU+LEFT$(LI,1):LI=MID$(LI,2):GOTO670
  40. 790 DU=DU+"-"
  41. 800 DU=DU+" "
  42. 810 TE$=LI:LI=DU:IFLEN(LI)<SU+1THENLI=LI+RT$
  43. 840 DU=TE$:IFCH=RT$THENPA=1
  44. 850 CLS:RETURN
  45. 900 LI=DU+LI:DU="":CLS:RETURN
  46.  
  47.